Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue59/Arch/Extended Sample/UnitObjectResultSetOrders.dfm

Text File | 2000-06-05 | 2.0 KB | 79 lines

inherited ObjectResultSetOrders: TObjectResultSetOrders
  inherited Query: TQuery
    SQL.Strings = (
      'select * from orders.db')
    object QueryOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object QueryCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object QuerySaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object QueryShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object QueryEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object QueryShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object QueryShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object QueryShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object QueryShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object QueryShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object QueryShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object QueryShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object QueryShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object QueryShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object QueryPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object QueryTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object QueryPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object QueryItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object QueryTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object QueryFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object QueryAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
  end
end